home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / ftransd_2_1a.lha / FTransD_2.1a / ARexx-Scripts / FTGed.ged < prev    next >
Text File  |  1995-07-15  |  5KB  |  118 lines
  1. /* $VER: FTGed.ged 1.1 (06.06.95), ⌐1995 Rainer Hess
  2.  *
  3.  * V1.1 ARexx-Port-Name fⁿr FTrans V1.7 geΣndert. Anpassung fⁿr
  4.  *      LockGUI/UnlockGUI.
  5.  *
  6.  * ARexx-Script basierend auf das ARexx-Script "empty.ged" von
  7.  * Dietmar Eilert, dem Autor des Texteditors GoldEd.
  8.  *
  9.  * Getestet mit der unregistrierten GoldEd-Version Release 2 (2.0.1)
  10.  * und der unregistrierten Release 2 (2.2.0).
  11.  *
  12.  * ARexx-Script, da▀ das Wort unter dem Cursor von GoldEd an FTrans
  13.  * weiterleitet und das Ergebnis der ▄bersetzung in einem Requester
  14.  * in GoldEd anzeigt.
  15.  *
  16.  * Beispiel zur Installation des ARexx-Scripts auf die Funktionstaste F9:
  17.  * ----------------------------------------------------------------------
  18.  * Es wird vorrausgesetzt, da▀ die "normale" Konfiguration von GoldEd
  19.  * verwendet wird und die MenⁿeintrΣge nicht vom Benutzer verΣndert
  20.  * wurden. So, nun aber zur installation...
  21.  *
  22.  *  1.) Diese Script "FTGed.ged" nach GoldEd:ARexx kopieren.
  23.  *  2.) GoldEd aufrufen.
  24.  *  3.) Im Menupunkt "Konfig" den Eintrag "Tastatur..." auswΣhlen.
  25.  *  4.) Im nun hoffentlich ge÷ffneten "Kommandorequester" von GoldEd
  26.  *      die TastatureintrΣge unten rollen bis "F09" erscheint.
  27.  *  5.) Den Eintrag "F09" doppelklicken, nun sollte sich das
  28.  *      "Kommandorequester" von GoldEd ÷ffnen.
  29.  *  6.) "L÷schen" betΣtigen um "TABS SOLID TOGGLE" zu entfernen.
  30.  *  7.) "Neu" betΣtigen.
  31.  *  8.) Dann beim Auswahlschalter "ARexx" anwΣhlen ("intern" sollte dann
  32.  *      automatisch deaktiviert werden).
  33.  *  9.) Das Auswahlrequester ÷ffnen, indem man auf das Symbol (rechts
  34.  *      neben neu) klickt.
  35.  * 10.) Im Auswahlrequester den Pfad fⁿr ARexx (GoldEd:ARexx) anklicken.
  36.  *      Unter den Sctipts sollte nun auch FTGed.ged zu finden sein,
  37.  *      diesen Eintrag anklicken. Das Requester mit der Auswahl von "Ok"
  38.  *      beenden.
  39.  * 11.) Den "Komandorequester" nun auch mit "Ok" beenden.
  40.  * 12.) Ebenso auch den "Tastaturrequester" mit "Ok" bestΣtigen.
  41.  * 13.) Soll dieser Eintrag fⁿr die Funktionstaste F9 dauerhaft
  42.  *      gespeichert werden, so ist im Menⁿpunt "Konfig" der Eintrag
  43.  *      "Sichern..." anzuwΣhlen. Im "Sichernrequester" sollte
  44.  *      als Pfad schon "GoldED:Config" und "GoldED.prefs" eingetragen
  45.  *      sein. Das Requester ist in diesem Fall nur mit "Ok" zu
  46.  *      bestΣtigen.
  47.  * 14.) Nun nur noch einen (englischen) Text einladen, FTrans starten
  48.  *      und ⁿber einem Wort die Funktinstatse F9 betΣtigen. GoldEd sollte
  49.  *      nun einem das ⁿbersetze Wort anzeigen.
  50.  *
  51.  * ACHTUNG! Es ist anzumerken, da▀ der ARexx-Server gestartet sein muss.
  52.  * Notfalls ist "RexxMast" im CLI zu starten oder das "RexxMast" Ikon
  53.  * anklicken. RexxMast sollte in der Schublade SYS:System zu finden sein.
  54.  * Soll das Lernfenster im Autolernmodus auf dem Bildschirm von GoldEd
  55.  * ge÷ffnet werden, so sollte bei FTrans im Lernmenⁿ bei "Bildschirm..."
  56.  * "- Aktiven Public-Screen -" gesetzt sein (ab FTrans 1.3 m÷glich), oder
  57.  * im ARexx-Script die Publicscreens direkt setzen (siehe hierzu auch das
  58.  * Script FTCed.ced).
  59.  */
  60.  
  61. OPTIONS RESULTS                             /* enable return codes     */
  62.  
  63. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  64.     address 'GOLDED.1'
  65.  
  66. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  67. OPTIONS FAILAT  6                           /* ignore warnings         */
  68. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  69.  
  70. /* ------- BEGINN KOMUNIKATIONSCODE F▄R FTRANS UND GOLDED  ----------- */
  71.  
  72. /* Anfrage ob FTrans aktiv ist */
  73.  
  74. IF ~show( 'p', 'FTRANS.1' ) THEN do
  75.   'REQUEST BODY="Oops! FTrans ist nicht aktiv. | Bitte FTrans aktivieren..."'
  76. end
  77. else do
  78.  
  79.   /* Ja, FTrans ist aktiv, dann fangen wir an... */
  80.  
  81.   'QUERY WORD VAR=dummy'         /* Wort unter dem Cursor bei GoldEd abfragen. */
  82.   wort = result                  /* Das Ergebnis (Wort) merken */
  83.  
  84.   /* Nun setzen wir unsere Port auf FTrans und komunizieren... */
  85.  
  86.   address 'FTRANS.1'             /* FTrans Arexx-Port setzen. */
  87.   LOCKGUI                        /* GUI gegen Zugriff schⁿtzen */
  88.   WORTARG wort                   /* Das Wort in "wort" ⁿbersetzen. */
  89.   uebersetzung = result          /* Unser Ergebnis der ▄bersetzung merken. */
  90.   UNLOCKGUI                      /* Und GUI wieder frei geben */
  91.  
  92.   address       /* Nun schalten wir den Port wieder auf die GoldEd-Adresse */
  93.  
  94.   /* Einen Text fⁿr das Requester zurecht setzen... */
  95.  
  96.   ausgabe = 'Das englische Wort : ' || wort || '|bedeutet in deutsch: ' || uebersetzung
  97.  
  98.   /* War die ▄bersetzung positiv oder negativ? */
  99.  
  100.   if((right(uebersetzung, 1) == '}' | left(uebersetzung, 1) == '{')) then
  101.     ausgabe = 'Das Wort ' || uebersetzung || ' kommt im|aktuellen W÷rterbuch nicht vor!'
  102.  
  103.   /* Nun rufen wir das Requester in GoldEd auf */
  104.  
  105.   'REQUEST TITLE="FTrans/GoldEd-Info..." BODY="' || ausgabe || '" BUTTON=Weiter'
  106.  
  107. end
  108. /* ---------------------- END OF YOUR STANDART GOLDED-CODE --------------------- */
  109.  
  110. 'UNLOCK'                /* VERY important:   unlock GUI */
  111. EXIT
  112.  
  113. SYNTAX:
  114.  
  115. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  116. 'UNLOCK'
  117. EXIT
  118.